home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / 2924.ZIP / DMLXREF.ARC / KBD.INT < prev    next >
Encoding:
Text File  |  1988-12-20  |  4.0 KB  |  87 lines
  1. CONST
  2.  
  3.   {Normal Keys}    {Shift Keys}       {Control Keys}         {Alt Keys}
  4.  
  5.   K_Home   = 327;                      K_Ctrl_Home   = 375;
  6.   K_End    = 335;                      K_Ctrl_End    = 373;
  7.   K_PgUp   = 329;                      K_Ctrl_PgUp   = 388;
  8.   K_PgDn   = 337;                      K_Ctrl_PgDn   = 374;
  9.   K_Left   = 331;                      K_Ctrl_Left   = 371;
  10.   K_Right  = 333;                      K_Ctrl_Right  = 372;
  11.   K_Up     = 328;
  12.   K_Down   = 336;
  13.   K_Ins    = 338;
  14.   K_Del    = 339;
  15.   K_Backsp =   8;                      K_Ctrl_Backsp = 127;
  16.   K_Enter  =  13;                      K_Ctrl_Enter  =  10;
  17.  
  18.                                        K_Ctrl_BackSlash  =  28;
  19.                                        K_Ctrl_RightBrace =  29;
  20.                                        K_Ctrl_2      = 259;
  21.                                        K_Ctrl_6      =  30;
  22.                                        K_Ctrl_PrtSc  = 370;
  23.                                        K_Ctrl_Minus  =  31;  K_Alt_Minus = 386;
  24.                                                              K_Alt_Equal = 387;
  25.   K_Esc    =  27;
  26.  
  27.   K_Tab    =   9;  K_Shift_Tab = 271;
  28.  
  29.   K_F1  = 315;     K_Shift_F1  = 340;  K_Ctrl_F1  = 350;     K_Alt_F1  = 360;
  30.   K_F2  = 316;     K_Shift_F2  = 341;  K_Ctrl_F2  = 351;     K_Alt_F2  = 361;
  31.   K_F3  = 317;     K_Shift_F3  = 342;  K_Ctrl_F3  = 352;     K_Alt_F3  = 362;
  32.   K_F4  = 318;     K_Shift_F4  = 343;  K_Ctrl_F4  = 353;     K_Alt_F4  = 363;
  33.   K_F5  = 319;     K_Shift_F5  = 344;  K_Ctrl_F5  = 354;     K_Alt_F5  = 364;
  34.   K_F6  = 320;     K_Shift_F6  = 345;  K_Ctrl_F6  = 355;     K_Alt_F6  = 365;
  35.   K_F7  = 321;     K_Shift_F7  = 346;  K_Ctrl_F7  = 356;     K_Alt_F7  = 366;
  36.   K_F8  = 322;     K_Shift_F8  = 347;  K_Ctrl_F8  = 357;     K_Alt_F8  = 367;
  37.   K_F9  = 323;     K_Shift_F9  = 348;  K_Ctrl_F9  = 358;     K_Alt_F9  = 368;
  38.   K_F10 = 324;     K_Shift_F10 = 349;  K_Ctrl_F10 = 359;     K_Alt_F10 = 369;
  39.  
  40.   {Alt Keys}
  41.  
  42.   K_Alt_1 = 376;  K_Alt_A = 286;  K_Alt_N = 305;
  43.   K_Alt_2 = 377;  K_Alt_B = 304;  K_Alt_O = 280;
  44.   K_Alt_3 = 378;  K_Alt_C = 302;  K_Alt_P = 281;
  45.   K_Alt_4 = 379;  K_Alt_D = 288;  K_Alt_Q = 272;
  46.   K_Alt_5 = 380;  K_Alt_E = 274;  K_Alt_R = 275;
  47.   K_Alt_6 = 381;  K_Alt_F = 289;  K_Alt_S = 287;
  48.   K_Alt_7 = 382;  K_Alt_G = 290;  K_Alt_T = 276;
  49.   K_Alt_8 = 383;  K_Alt_H = 291;  K_Alt_U = 278;
  50.   K_Alt_9 = 384;  K_Alt_I = 279;  K_Alt_V = 303;
  51.   K_Alt_0 = 385;  K_Alt_J = 292;  K_Alt_W = 273;
  52.                   K_Alt_K = 293;  K_Alt_X = 301;
  53.                   K_Alt_L = 294;  K_Alt_Y = 277;
  54.                   K_Alt_M = 306;  K_Alt_Z = 300;
  55.  
  56. VAR
  57.   KBDLastChar : CHAR;
  58.  
  59. {.PA}
  60.  
  61. (**************************************************************************)
  62. (*                                                                        *)
  63. (*          1)  General Purpose Keyboard                                  *)
  64. (*                                                                        *)
  65. FUNCTION KbdGetStatus : WORD;
  66. PROCEDURE KbdSetInsMode (InsMode : BOOLEAN);
  67. PROCEDURE KbdSetCapsLock (CapsLock : BOOLEAN);
  68. PROCEDURE KbdSetNumLock (NumLock : BOOLEAN);
  69. PROCEDURE KbdSetScrollLock (ScrollLock : BOOLEAN);
  70. FUNCTION KbdInsModeStatus : BOOLEAN;
  71. FUNCTION KbdCapsLockStatus : BOOLEAN;
  72. FUNCTION KbdNumLockStatus : BOOLEAN;
  73. FUNCTION KbdScrollLockStatus : BOOLEAN;
  74. (*                                                                        *)
  75. (**************************************************************************)
  76.  
  77. (**************************************************************************)
  78. (*                                                                        *)
  79. (*          2)  Keyboard Buffer                                           *)
  80. (*                                                                        *)
  81. PROCEDURE KbdClear;
  82. FUNCTION KbdNumValuesWaiting : WORD;
  83. FUNCTION KbdInputValue : WORD;
  84. FUNCTION KbdKeyWaiting : BOOLEAN;
  85. (*                                                                        *)
  86. (**************************************************************************)
  87.